ggplot2

# empty plot - needs a geom!
ggplot(data = mpg, mapping = aes(x = displ, y = hwy))

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point()

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = class))

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_text(aes(colour = class, label = model))

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_density_2d_filled(contour_var = "count")

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = class))

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = class, shape = drv), size = 3, alpha = .7)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = class, shape = drv), size = 3, alpha = .7) +
  geom_label(data = ~ filter(., hwy > 40), aes(label = model), nudge_x = .4)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(aes(colour = class, shape = drv), size = 3, alpha = .7) +
  scale_colour_brewer(palette = "Dark2") +
  theme_bw(base_size = 20)

ggplot(data = mpg, mapping = aes(x = displ, y = hwy)) +
  geom_point(size = 2, alpha = .5) +
  theme_bw(base_size = 20) +
  facet_wrap(~class, nrow = 2)

library(patchwork)
(p1 | p2 | p3) / p4

library(ggstatsplot)
ggbetweenstats(iris, x = Species, y = Sepal.Length)

library(ggiraph)
g <- p + geom_point_interactive(aes(tooltip = model, data_id = model), size = 5)  
girafe(ggobj = g)

p + theme(axis.title = element_text(size = 40, face = "bold"))